home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / tcp / clchat40.lha / CLChat40 / CLChat_Install next >
Text File  |  1995-05-04  |  8KB  |  243 lines
  1. ; CLChat Installer Robert Reiswig (rcr@netcom.com) ©1995
  2. ; For Oliver Wagner
  3. ; My Not be use in anyother release cept Aminet.. With out my asking.
  4. ; 
  5.  
  6. ;********************************************************************
  7. ; Current Version of CLChat
  8. ;********************************************************************
  9. (set CLChatVer "4.0") 
  10. (set Client 0) ; For doing ONLY Server install for docs
  11. ;********************************************************************
  12. ; Info on CLChat & Installer Man
  13. ;********************************************************************
  14. (message "\nCLChatSystem V" CLChatVer " for AmiTCP ©1994-1995\nby:\n\n\nOliver Wagner\n\(o.wagner@pluribus.wupper.de)\n\n\n"
  15.          "\n\nInstaller by:\nRobert Reiswig (rcr@netcom.com)"
  16. )
  17.  
  18. ;********************************************************************
  19. ; MakeSure Amitcp is Installer
  20. ;********************************************************************
  21. (set #NeedAmiTCP (cat "CLChat needs AmiTCP to be installed."))
  22.  
  23. (if (< (exists ("Amitcp:")) 2)
  24.     (abort #NeedAmiTCP)       
  25. )  
  26.  
  27. ;********************************************************************
  28. ; Check for First Time install 
  29. ;********************************************************************
  30. (set there (askchoice (choices "Yes" "No")
  31.              (prompt "Is this your first time installing CLChat?\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  32.                                  "If No is selected, then the installer will NOT "
  33.                                  "(re)add entries to 'inetd.conf' & 'services' in the Amitcp:db drawer and 'startnet'.")
  34.                      (help   "Please Select: Updating or First Time Install")
  35.                    (default 0)
  36.       )
  37. )
  38.  
  39.  
  40. ;********************************************************************
  41. ; Ask Client and/or Server
  42. ;********************************************************************
  43. (set CS         (askoptions (choices "Client" "Server")
  44.                 (prompt "What parts of CLChat do you wish to install?")
  45.                 (help "What parts of CLChat do you wish to install?\nNote: You don't need the Server if you want to connect to a existing CLChatServer only.")
  46.                 (default 63)
  47.         )
  48. )
  49.  
  50. ;********************************************************************
  51. ; Copy over files for Client
  52. ;********************************************************************
  53. (if (IN CS 0)
  54.    (
  55.  
  56.     (set Client  (askdir (prompt "Please select where you wish to install the CLChat Client. A directory 'CLChat' will be created there!)")
  57.              (help   "Please select where you wish to install the CLChat Client. A directory 'CLChat' will be created there!)")
  58.              (default "Amitcp:")
  59.          )
  60.     ) 
  61.   
  62.     (if (< (exists (tackon Client "CLChat")) 2)
  63.       (makedir (tackon Client "CLChat") (infos))
  64.         
  65.     )
  66.  
  67.     (copyfiles (source "Client/CLChatGUI")  (dest (tackon Client "CLChat")) (infos))  
  68.  
  69.  
  70.     (set extras (askoptions (choices "Client Documentation")
  71.                 (prompt "Do you wish to copy over any of the following?")
  72.                 (help "Do you wish to copy over any of the following?")
  73.                 (default 63)
  74.         )
  75.     )
  76.  
  77.     (if (<> extras 0)
  78.        (
  79.   
  80.           (if (< (exists (tackon Client "CLChat/Docs")) 2)
  81.                (makedir (tackon Client "CLChat/Docs") (infos))
  82.          
  83.           )
  84.     
  85.  
  86.           (set where (tackon Client "CLChat/Docs"))
  87.  
  88.  
  89.           (if (IN extras 0)
  90.              (
  91.  
  92.                (copyfiles (source "Client/CLChatGUI.guide")  (dest (tackon Client "CLChat/Docs")) (infos))
  93.                (copyfiles (source "Client/CLChatGUI.doc")  (dest (tackon Client "CLChat/Docs")) (infos)) 
  94.                (copyfiles (source "Client/ReadMe.mui")  (dest (tackon Client "CLChat/Docs")) (infos))  
  95.      
  96.              )
  97.           )
  98.  
  99.        )
  100.     )
  101.  
  102.  
  103.  
  104.    )
  105.  
  106. )
  107.  
  108.  
  109. ;********************************************************************
  110. ; Copy over files for Server
  111. ;********************************************************************
  112. (if (IN CS 1)
  113.    (
  114.     
  115.   
  116.     (set cpu (database "cpu"))
  117.     (if (= cpu 68000) (set #cpu 0))
  118.     (if (= cpu 68010) (set #cpu 1))
  119.     (if (= cpu 68020) (set #cpu 2))
  120.     (if (= cpu 68030) (set #cpu 3))
  121.     (if (= cpu 68040) (set #cpu 4))
  122.     (if (= cpu 68060) (set #cpu 5))
  123.  
  124.     (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  125.                              "68040" "68060"
  126.                     )
  127.                 (prompt "Central Processing Unit Check")
  128.                         (help   "Central Processing Unit Check")
  129.                            (default #cpu)
  130.              )
  131.     )    
  132.  
  133.     (if (< cpu 68030) (copyfiles (source "Server/Bin/CLChatServer")  (dest "Amitcp:bin")) )
  134.     (if (> cpu 68020) (copyfiles (source "Server/Bin/CLChatServer030")  (dest "Amitcp:bin") (newname "CLChatServer") ) )
  135.    
  136.     (copyfiles (source "Server/serv/CLChatD")  (dest "Amitcp:serv"))
  137.     (copyfiles (source "Server/bin/CLChatLink")  (dest "Amitcp:bin"))
  138.  
  139.     (if (= there 0)
  140.      ( 
  141.  
  142.       (set port (asknumber (prompt "Please enter the port you wish\nto have the CLChat server on.\n"
  143.                                    "(5555 is the default.)")
  144.                            (help "Enter Port")
  145.                            (default 5555)            
  146.                 )
  147.       )
  148.       (textfile (dest "t:services.add") (append (cat "clchat          " port "/tcp\n")))
  149.       (rename "amitcp:db/services" "amitcp:db/services.CLChat.Backup")
  150.       (run ("join amitcp:db/services.CLChat.Backup t:services.add to amitcp:db/services"))
  151.  
  152.  
  153.       (textfile (dest "t:InetD.conf.add") (append "clchat    stream      tcp nowait root amitcp:serv/clchatd\n"))
  154.       (rename "amitcp:db/InetD.conf" "amitcp:db/InetD.conf.CLChat.Backup")
  155.       (run ("join amitcp:db/InetD.conf.CLChat.Backup t:InetD.conf.add to amitcp:db/InetD.conf"))
  156.  
  157.  
  158.       (textfile (dest "t:startnet.add") (append "run >NIL: AmiTCP:bin/CLChatServer\n"))
  159.       (rename "amitcp:bin/startnet" "amitcp:bin/startnet.CLChat.Backup")
  160.       (run ("join amitcp:bin/startnet.CLChat.Backup t:startnet.add to amitcp:bin/startnet"))
  161.  
  162.       
  163.  
  164.      )
  165.  
  166.     )
  167.  
  168.  
  169.    (set extras (askoptions (choices "Server Documentation" "Sample Bot")
  170.                 (prompt "Do you wish to copy over any of the following?")
  171.                 (help "Do you wish to copy over any of the following?")
  172.                 (default 63)
  173.         )
  174.     )
  175.  
  176.     (if (<> extras 0)
  177.        (
  178.           (if (= Client 0)  (set Client "Amitcp:"))
  179.              
  180.           (if (< (exists (tackon Client "CLChat")) 2)
  181.              (makedir (tackon Client "CLChat") (infos))
  182.           )
  183.          
  184.           (if (< (exists (tackon Client "CLChat/Docs")) 2)
  185.                (makedir (tackon Client "CLChat/Docs") (infos))
  186.          
  187.           )
  188.     
  189.  
  190.           (set where (tackon Client "CLChat/Docs"))
  191.  
  192.  
  193.           (if (IN extras 0)           
  194.              (copyfiles (source "CLChatServer.DOC")  (dest (tackon Client "CLChat/Docs")) (infos))
  195.           )
  196.  
  197.          
  198.           (if (IN extras 1)
  199.              (
  200.                (if (< (exists (tackon Client "CLChat/SampleBot")) 2)
  201.                   (makedir (tackon Client "CLChat/SampleBot") (infos))
  202.                )
  203.              
  204.                (copyfiles (source "Server/Bot")  (dest (tackon Client "CLChat/SampleBot")) (all))
  205.              )
  206.           )
  207.               
  208.           
  209.  
  210.  
  211.        )
  212.     )
  213.   
  214.  
  215.    )
  216. )
  217.  
  218.  
  219. ;********************************************************************
  220. ; Copy Extraa Demo stuff  
  221. ;********************************************************************
  222. (set extras     (askoptions (choices "Example ChatServer.MOTD" "Example ChatServer.OPList"
  223.                                      "Example ChatServer.Servers" "Example ChatServer.UserBans")
  224.                 (prompt "Do you wish to copy over any of the following Examples?")
  225.                 (help "Do you wish to copy over any of the following Examples?")
  226.                 (default 63)
  227.         )
  228. )
  229.  
  230.  
  231. (if (IN extras 0) (copyfiles (source "Server/db/ChatServer.MOTD")  (dest "Amitcp:db") (infos)) )
  232. (if (IN extras 1) (copyfiles (source "Server/db/ChatServer.OPList")  (dest "Amitcp:db") (infos)) )
  233. (if (IN extras 0) (copyfiles (source "Server/db/ChatServer.Servers")  (dest "Amitcp:db") (infos)) )
  234. (if (IN extras 1) (copyfiles (source "Server/db/ChatServer.UserBans")  (dest "Amitcp:db") (infos)) )
  235.  
  236.  
  237. ;********************************************************************
  238. ; Bye Bye  
  239. ;********************************************************************
  240. (set @default-dest Client) 
  241.  
  242.  
  243.